let create_img_widget path =
  let ar =
          GMisc.drawing_area
            ~width:30
            ~height:30
            ()
  in
  let img =
   try
     GdkPixbuf.from_file ("res/"^path)
   with _->
     GdkPixbuf.from_file ("/usr/share/progeo/"^path)
  in
  let drawable = lazy (new GDraw.drawable ar#misc#window)
  in
  let repaint () =
   let drawable = Lazy.force drawable in
      drawable#put_pixbuf
        ~x:0
        ~y:0
        img
  in
    ignore(ar#event#connect#expose
      ~callback:(fun _ -> repaint (); false));
    ar

